home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
develop, the CD; issue 1
/
Apple_Develop_1989.bin
/
Realistic Color
/
RW Fragment
/
RW Fragmentπ
/
RW Fragmentπ.rsrc
/
CODE_1.txt
< prev
next >
Wrap
Text File
|
1989-11-16
|
41KB
|
761 lines
# near model CODE resource
# jump table entries: 0-9 (10 of them)
00000000 0000 0000 ori.b D0, 0x0
00000004 0000 0000 ori.b D0, 0x0
00000008 0000 0000 ori.b D0, 0x0
0000000C 0000 0000 ori.b D0, 0x0
00000010 0000 0000 ori.b D0, 0x0
00000014 0000 0000 ori.b D0, 0x0
00000018 0000 0100 ori.b D0, 0x0
export_0:
0000001C 4278 0A4A clr.w [0x00000A4A /* FPState */]
00000020 9DCE sub.l A6, A6
00000022 4EBA 0054 jsr [PC + 0x54 /* 00000078 */]
00000026 4EBA 0066 jsr [PC + 0x66 /* 0000008E */]
0000002A 2C3C 494E 4458 move.l D6, 0x494E4458 /* 'INDX' */
00000030 4EBA 056E jsr [PC + 0x56E /* 000005A0 */]
00000034 47FA FFCA lea.l A3, [PC - 0x36 /* 00000000, value 0x0, cstring "" */]
00000038 268C move.l [A3], A4
0000003A 47FA FFC8 lea.l A3, [PC - 0x38 /* 00000004, value 0x0, cstring "" */]
0000003E 2684 move.l [A3], D4
00000040 4EBA 0066 jsr [PC + 0x66 /* 000000A8 */]
00000044 4EBA 02A8 jsr [PC + 0x2A8 /* 000002EE */]
00000048 4EBA 0626 jsr [PC + 0x626 /* 00000670 */]
0000004C 4EBA 00DC jsr [PC + 0xDC /* 0000012A */]
00000050 4EBA 00A8 jsr [PC + 0xA8 /* 000000FA */]
00000054 4267 clr.w -[A7]
00000056 4878 FFFF push.l 0xFFFF
0000005A 486F 0004 pea.l [A7 + 0x4]
0000005E 4857 pea.l [A7]
00000060 3F3C 0001 move.w -[A7], 0x1
00000064 223A FFB2 move.l D1, [PC - 0x4E /* 00000018, value 0x100, cstring "" */]
00000068 4EBA 0382 jsr [PC + 0x382 /* 000003EC */]
0000006C 4EB5 1000 jsr [A5 + D1.w]
00000070 206D 006C movea.l A0, [A5 + 0x6C]
00000074 4E90 jsr [A0]
00000076 A9F4 syscall ExitToShell
fn00000078:
00000078 51F8 0A5E sf [0x00000A5E /* ResLoad */]
0000007C 7E00 moveq.l D7, 0x00
0000007E 4EBA 02FA jsr [PC + 0x2FA /* 0000037A */]
00000082 6708 beq +0xA /* 0000008C */
00000084 4A90 tst.l [A0]
00000086 6704 beq +0x6 /* 0000008C */
00000088 08D0 0006 bset.b [A0], 0x6
label0000008C:
0000008C 4E75 rts
fn0000008E:
0000008E 2038 0A78 move.l D0, [0x00000A78 /* ApplScratch */]
00000092 660C bne +0xE /* 000000A0 */
00000094 2C3C 5A4F 4E45 move.l D6, 0x5A4F4E45 /* 'ZONE' */
0000009A 4EBA 0504 jsr [PC + 0x504 /* 000005A0 */]
0000009E 200C move.l D0, A4
label000000A0:
000000A0 47FA FF66 lea.l A3, [PC - 0x9A /* 00000008, value 0x0, cstring "" */]
000000A4 2680 move.l [A3], D0
000000A6 4E75 rts
fn000000A8:
000000A8 598F subq.l A7, 4
000000AA 2F3C 4441 5441 move.l -[A7], 0x44415441 /* 'DATA' */
000000B0 4267 clr.w -[A7]
000000B2 A9A0 syscall GetResource
000000B4 2057 movea.l A0, [A7]
000000B6 2050 movea.l A0, [A0]
000000B8 2278 0908 movea.l A1, [0x00000908 /* CurStackBase */]
000000BC 200D move.l D0, A5
000000BE 9089 sub.l D0, A1
000000C0 47FA FF4E lea.l A3, [PC - 0xB2 /* 00000010, value 0x0, cstring "" */]
000000C4 2680 move.l [A3], D0
000000C6 A02E syscall BlockMove/BlockMoveData
000000C8 A9A3 syscall ReleaseResource
000000CA 2C3C 5354 5253 move.l D6, 0x53545253 /* 'STRS' */
000000D0 4EBA 04CE jsr [PC + 0x4CE /* 000005A0 */]
000000D4 47FA FF36 lea.l A3, [PC - 0xCA /* 0000000C, value 0x0, cstring "" */]
000000D8 268C move.l [A3], A4
000000DA 2C3C 4452 454C move.l D6, 0x4452454C /* 'DREL' */
000000E0 4EBA 04BE jsr [PC + 0x4BE /* 000005A0 */]
000000E4 204C movea.l A0, A4
000000E6 2004 move.l D0, D4
000000E8 670C beq +0xE /* 000000F6 */
label000000EA:
000000EA 4EBA 01B6 jsr [PC + 0x1B6 /* 000002A2 */]
000000EE 0480 0000 000C subi.l D0, 0xC
000000F4 66F4 bne -0xA /* 000000EA */
label000000F6:
000000F6 4EFA 056A jmp [PC + 0x56A /* 00000662 */]
fn000000FA:
000000FA 4E56 FFDA link A6, -0x0026
000000FE 41F8 0910 lea.l A0, [0x00000910 /* CurApName */]
00000102 224F movea.l A1, A7
00000104 7020 moveq.l D0, 0x20
00000106 A02E syscall BlockMove/BlockMoveData
00000108 7001 moveq.l D0, 0x01
0000010A D011 add.b D0, [A1]
0000010C 5A11 addq.b [A1], 5
0000010E D2C0 add.w A1, D0
00000110 41FA 0012 lea.l A0, [PC + 0x12 /* 00000124, value 0x2E727372 '.rsr', cstring ".rsrc" */]
00000114 7005 moveq.l D0, 0x05
00000116 A02E syscall BlockMove/BlockMoveData
00000118 558F subq.l A7, 2
0000011A 486F 0002 pea.l [A7 + 0x2]
0000011E A997 syscall OpenResFile
00000120 4E5E unlink A6
00000122 4E75 rts
00000124 2E72 7372 6300 47FA 05EE movea.l A7, [[A2 + 0x630047FA] + 0x5EE]
// begin alternate branch 0000012A-0000012E
fn0000012A:
0000012A 47FA 05EE lea.l A3, [PC + 0x5EE /* 0000071A, value 0x0, cstring "" */]
// end alternate branch 0000012A-0000012E
fn0000012A: // (misaligned)
0000012E 26B8 0A7C move.l [A3], [0x00000A7C]
00000132 2F38 0A80 move.l -[A7], [0x00000A80]
00000136 6602 bne +0x4 /* 0000013A */
00000138 588F addq.l A7, 4
label0000013A:
0000013A 4E75 rts
0000013C 48E7 FFF8 movem.l -[A7], D0,D1,D2,D3,D4,D5,D6,D7,A0,A1,A2,A3,A4
00000140 3E2F 003C move.w D7, [A7 + 0x3C]
00000144 51F8 0A5E sf [0x00000A5E /* ResLoad */]
00000148 600A bra +0xC /* 00000154 */
label0000014A:
0000014A 598F subq.l A7, 4
0000014C 2F08 move.l -[A7], A0
0000014E A9A5 syscall GetResourceSizeOnDisk/SizeResource/SizeRsrc
00000150 201F move.l D0, [A7]+
00000152 A040 syscall ResrvMem/ReserveMem
label00000154:
00000154 4EBA 0224 jsr [PC + 0x224 /* 0000037A */]
00000158 6744 beq +0x46 /* 0000019E */
0000015A 47FA FEB8 lea.l A3, [PC - 0x148 /* 00000014, value 0x0, cstring "" */]
0000015E 2688 move.l [A3], A0
00000160 2010 move.l D0, [A0]
00000162 67E6 beq -0x18 /* 0000014A */
00000164 2240 movea.l A1, D0
00000166 4A91 tst.l [A1]
00000168 662E bne +0x30 /* 00000198 */
0000016A 0010 00C0 ori.b [A0], 0xC0
0000016E 2C3C 4352 454C move.l D6, 0x4352454C /* 'CREL' */
00000174 4EBA 042C jsr [PC + 0x42C /* 000005A2 */]
00000178 6724 beq